Option Explicit
Sub P_Sample039()
    Dim myFso As Scripting.FileSystemObject
    Dim myStr As String
    Set myFso = New Scripting.FileSystemObject
    With myFso.GetFile(ThisWorkbook.Path & "\P_Test1.txt")        'Nɮ
    Debug.Print "s@:" & .DateCreated
    Debug.Print "̫s:" & .DateLastAccessed
    Debug.Print "̫s:" & .DateLastModified
    Debug.Print "RootϺоW:" & .Drive
    Debug.Print "ɮצW:" & .Name
    Debug.Print "WhƧW:" & .ParentFolder
    Debug.Print "|:" & .Path
    Debug.Print "DOSεuW:" & .ShortName
    Debug.Print "DOSεu|X:" & .ShortPath
    Debug.Print "jp:" & (.Size / 1024) & "KB"
    Debug.Print ":" & .Type
    End With
    Set myFso = Nothing         '
End Sub
